home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-05_1985_Verlag_Heinz_Weise_de.d64 / S C R E (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  64 lines
  1. 1000 poke50257,08 :rem systempoke
  2. 1010 poke50259,001:rem untergrenze (lb)
  3. 1020 poke50260,021:rem untergrenze (hb)
  4. 1030 poke50261,003:rem obergrenze  (lb)
  5. 1040 poke50262,026:rem obergrenze  (hb)
  6. 1050 :
  7. 1060 fe=04352     :rem sys fenster ein
  8. 1070 fa=04601     :rem sys fenster aus
  9. 1080 :
  10. 1090 rem demo fuer screen display
  11. 1999 :
  12. 2000 poke53280,0:poke53281,0:printchr$(14)chr$(8)chr$(147);
  13. 2050 print"[158]   [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  14. 2100 [153]"   (NULL)  (NULL)closelenclose(NULL)closevalclosevalclose(NULL)closecloseclosestr$closeright$close(NULL)close(NULL)close(NULL)closeatnclose(NULL)close (NULL)"
  15. 2110 [153]"   (NULL)        von left$elmut (NULL)ape        (NULL)"
  16. 2150 [153]"   /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp
  17. 2499 :
  18. 2500 sysfe,5,20,0,25:print"[147]";
  19. 2510 print"[205]it diesem [200]ilfsprogramm haben [211]ie die [205]oeglich-  keit ";
  20. 2520 print"bis zu 8 [194]ildschirm-fenster ([215][201][206][196][207][215][211]) auf [201]h-rem [195]64 zu ";
  21. 2530 print"beherrschen."
  22. 2540 print"[158][196]ruecken [211]ie  +";
  23. 2800 getg$:ifg$<>"+"andg$<>"z"then2800
  24. 2810 ifg$="z"thensysfa:printpeek(2):end
  25. 2999 :
  26. 3000 sysfe,7,18,15,21:print"[147]";
  27. 3010 print"[196]iese [215][201][206][196][207][215][211] koennensich ueberlappen. [196]er[201]nhalt der ueberdeckt";
  28. 3020 print"wird, bleibt dabei   erhalten und kann mit";
  29. 3030 print"[218]urueckblaettern wie-der sichtbar gemacht werden. ";
  30. 3040 print"[196]ruecken [211]ie einmal die "chr$(34)"-"chr$(34)" [212]aste!"
  31. 3050 print"[158] oder  -";
  32. 3500 getg$:ifg$<>"-"andg$<>"+"then3500
  33. 3510 ifg$="-"thensysfa:goto2800
  34. 3999 :
  35. 4000 sysfe,11,13,8,22:print"[147]";
  36. 4010 print"[196]iese [215][201][206][196][207][215]-[212]echnik  kennen [211]ie vielleicht von [208]ersonalcomputern.";
  37. 4020 print"[202]etzt koennen [211]ie auchmit dem "chr$(34)"kleinen"chr$(34)" [195]64 ";
  38. 4030 print"diese [204]eistungsmerk-  male nutzen."
  39. 4500 getg$:ifg$<>"-"andg$<>"+"then4500
  40. 4510 ifg$="-"thensysfa:goto3500
  41. 4999 :
  42. 5000 sysfe,6,9,4,27:print"[147][159]";
  43. 5120 print"[196]as [214]or- und [218]urueckblaet- tern wird von [194][193][211][201][195] aus je-weils mit";
  44. 5130 print" einem [211][217][211]-[193]ufruf durchgefuehrt. [196]er [208][210][201][206][212] - [194]efehl";
  45. 5140 print" schreibt nach der   [198]ensterdefinition nur noch in dem neu ";
  46. 5150 print"begrenzten [194]e-  reich. [196]ie [211][217][206][212][193][216] entnehmen[211]ie bitte dem [194]eiheft.";
  47. 5500 getg$:ifg$<>"-"andg$<>"+"then5500
  48. 5510 ifg$="-"thensysfa:goto4500
  49. 5999 :
  50. 6000 sysfe,9,14,19,16:print"[147]";
  51. 6120 print"[215]enn [211]ie dieses [200]ilfsprogramm  "
  52. 6125 print"auf [201]hren [196]aten-traeger sichern wollen, druecken[211]ie ";
  53. 6130 print"[195][212][210][204] [211] .    [196]iese [196]emonstra-tion wird dabei nicht mit";
  54. 6140 print"ge-    sichert."
  55. 6500 getg$:ifg$<>"-"andg$<>"+"then6500
  56. 6510 ifg$="-"thensysfa:goto5500
  57. 6999 :
  58. 7000 sysfe,7,6,2,20:print"[147][129]";
  59. 7120 print"[205]it etwas [213]ebung    koennen [211]ie interes-sante [193]nwendungsbe- reiche";
  60. 7130 print" fuer diese   neue [215][201][206][196][207][215]-[212]echnik entwickeln."
  61. 7500 getg$:ifg$<>"-"andg$<>"+"then7500
  62. 7510 ifg$="-"thensysfa:goto6500
  63. 7520 fori=0to4:sysfa:nexti:goto2800
  64.